EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 
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000000 TITTTTTTTT SSSSSSSS ccecccccc «(WV VV TTTTTTTTTT RRRRRRRR GGGGGGGG PPPPPPPP 
000000 TTTTTTTTTT SSSSSSSS cceccecccce «(WV VV TTTTTTTTTT RRRRRRRR GGGGGGGG PPPPPPPP 

00 00 TT $$ cc VV VV TT RR RR GG PP PP 

00 00 TT $$ cc VV vv TT RR RR GG PP PP 

00 00 TT S$ cc VV VV TT RR RR GG PP PP 

00 00 TT SS cc VV VV TT RR RR GG PP P 

00 00 TT SSSSSS cc VV VV TT RRRRRRRR GG PPPPPPPP 

00 00 TT SSSSSS cc VV VV TT RRRRRRRR GG PPPPPPPP 

00 00 TT SS CC VV VV TT RR RR GG GGGGGG PP 

00 00 TT SS CC VV vv TT RR RR GG GGGGGG PP 

00 00 TT ss CC vv VV TT RR RR GG GG PP eee 

00 00 TT ss CC ve VW TT RR wR GG GG PP cece 
000000 TT SSSSSSSS cccccccc vv TT RR RR GGGGGG PP eeee 
000000 TT SSSSSSSS cccccccc Wy TT RR RR GGGGGG PP cove 

LL III SSSSSSSS 

LL 111] SSSSSSSS 

LL Il $$ 

LL II SS 

LL I] $$ 

LL I] $s 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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Convert Rounded G Floating to Packed 


; ABSTRACT: 


; VERSION: 1 


; AUTHOR: 


Peep 1obe 84:45:39 ECan eacdorseureop.mars1 2% ct 
- TITLE OTSREYTREP_RO Conyert Rounded G piget ing to Packed 
IDENT /1-005/ ; File: OTSCVTRGP.MAR Edit: DG1005 


RRRAAAERAEAEAAAAAAEAAAEEAAAAAAAAAAAAAARAAAAAARAAAARAAAAEAAEAEAEAEAEEAEEREEAAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


= ED_UNDER A LICENSE AND MAY BE USED AND soriee 


H 
H_ THE TERMS LICENSE AND WITH 
git od NOTICE. THIS SOFTWARE OR ANY OT 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORA ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY CF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ARAB AAAAALALAAAAAA AAAS LEER ALE EERSTE REESE REET ERR REE EEE RRR RR REARS 


FACILITY: LANGUAGE INDEPENDENT SUPPORT 


This module contains the routine that converts g floating 
numbers to packed with rounding. 


HISTORY: 


Pamela Levesque, 21-Jan-1982 
MODIFIED BY: 


2) «ena Rounded 6 touting tp Packed Weory 'e-Sep=1984 11:95:97 ELTaRiE. eaesorSevTRGP.maR:1 29° (3) 
-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 1 of OTSCVTRGP 


4; 1-001 - Golf p fl atin 21-Jan-1982 

; I- - ng c conversion routine. PLL enera 1904 

; = - Expect a 2 digit exponent from the conversion routine. PLL 8-Mar-1982 
; MOL 9-Apr-1 


4 - determine neN many digits there are in the exponent on the fly. 
1-005 = Make sure result will not overflow destination after calculating 
Longword exponent. 0G 9-Apr-1984 


; 3 
TSSCVTRGP_RO Convert Rounded G Floating to Packed 16-SEP-1984 AX/VMS Macro V04-00 P 
#1885 DECLARATIONS ° ~SEEi 138s 99:95:55 PATENES Baca OOO mary oe ca 
es -SBTTL DECLARATIONS 
4 . 
65 ; INCLUDE FILES: 
7 , SDSCDEF 
19 ; 3; EXTERNAL SYMBOLS: 
ie -DSABL GBL ; Prevent undeclared symbols from being 
8 Y 3; automatically global 
75 -EXTRN OTSSCNVOUT_G ; E-format conversion 
6 -EXTRN LIBSSTOP : Error halt 
4 eEXTRN OTSS_FATINTERR ; Fatal internal error code 
000 i 
000 1 : MACROS: 
44 § 3 NONE 
000 3 
$33 
$009 Bg : PSECT DECLARATIONS: 
00000000 7 -PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
0000 88 USR, CON, REL, LCL, RD 
$83 
9000 91 : EQUATED SYMBOLS: 
000 3 3 NONE 
000 93 ; 
3 
0000 96 : OWN STORAGE: 
0000 97 ; NONE 
0000 98 ; 


dD 5 
ale OTSSCVERGPLRG. | oetin@ 0 Packed — TE SER19be Wtiiss2? ECTBRTL.SREIOTSCVTRGP.MAR;1 O92) a 


1 ~SBTTL OTSSCVTRGP_RO 


"FUNCTIONAL DESCRIPTION: 
Converts a g floating number to packed with rounding. 
CALLING SEQUENCE: 
JSB OTSSCVTRGP_RO (scale.rl.v, src.rg.r, dstlen.rl.v, dst.wp.r) 
Arguments are passed in R6, R7, RB and RI. 
INPUT PARAMETERS: 
SCALE.rl.v a power of ten by which the internal 
sotetptied tor scate"tne sane, ae the" 
internal representation of the dest. 
DSTLEN etl.v the en be dlelte ie’ She destination 
IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wp.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 


Destroys registers RO through R9. 


OWDWNAOUES NO OONAUE 


SUBL ; Allocate temp space 
MOVC 6 tap) #°A"' #68, (SP) 3 Clear temp space 
MOVG tRI) K SP) ; Get input number 

: Make a descriptor for the temporary string. 


‘ PUSHAB 8(SP) 


OTSSCVTRGP ae? 


Address = eneece reserved 


7E 9 Ove #OSC$K_CLASS_S,-(SP) : Class = st 
7E E MOVB AT eat DTYPE_T,-(SP) ; Data type = ASCII string 
7E 66 6B MOVW -(SP) $ Length” n bytes 


MOANA BBB EERE EWI III II nonononononononong 2 2 OOOO OCOOO0O 


ANEW OOD NOAUE WIN 9 OD NAUE WIN O OONAULS WN O 
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0 

0 

0 

° 
sc Ww 
6€ 30 00 6E& OQ 2c 
6E FD 
08 A oF 

i 

1 

1 

1 


5 
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; Call OTSSCNVOUT. 

#3) 
4(SP) 

PUSHAB 16(SP) 

CALLS @ Gogtsscnvour 6 


: Digits in fraction 
; Output string descriptor 
3; Number to convert 


= 

> 

m 
wwo7d 

"oO 
32 


; Call conversion routine 
‘ ° Should never fa 


; Determine the number of digits in the exponent. 
: find beginning of exponent (sign byte) 

#*A'+* ,#36,20(SP) 3 look tor ston byte (5) _ 

3; branch if we found it 
#*A' =" ,#36,20(SP) 3 look for sign byte (-) 
20$ 3; branch to error if we didn't find it 
5$: MOVL  _R1,8(SP) $ save location of sign byte 

3; (contained in R1 after above LOCC) 
LOCC. #*A'',#5,aB*8(SP) : 


Wd, look for NUL (end of string) 
SUBL3) 8(SP),R1,12(SP) 


determine number of digits by subtracting 
Location of bogtng ine of exponent from 

; location of en 

adjust for sign byte 

at this point, 12(SP) = Length of exponent 


: Convert the exponent and correct for scale factor. 


OC AE 07 of exponent, and save it 


CVTSP) 12(SP),@B*8(SP),12(SP), (SP) : Make packed exponent 


6—€ OC AE O08 BE OC AE 99 
50 6— OCA CVTPL 12(SP),(SP),RO ; Make longword exponent 


DoOoooooooo 


SOOOOSOCOooooooooooooocooS 


MATAR AAA E PEPER RPE 


——2 "> COCO COCO COCO CO COIN WO WWW occu OO OONINO@OOWWo—-mWO00o 


7 
| 
0 
1 
, DECL 12(SP) 
; 
8 
; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: Here must check that the result will not overflow 
3 the destination. The destination length (total number of 
8 ; digits) minus the scale factor will 9 ve the number of digits 
3; to the left of the decimal point. If that number is greater than 
; 3; the Longword exponent, then the result WILL overflow the dest. 
54 58 56 C3 Q SUBL3 -R6 RB RG ; Determine num of digits on left 
54 50 obi 0 CMPL RO,R4 3; Compare with Longword exponent 
1F 14 005 BGTR $ : Branch if overflowed 
56 £1 A640 QE 2 MOVAB -31(R6)CROJ,R6 ; Correct for fraction size and scale 
56 3 Convert the fraction to packed. 
12 AE 10 AE 90 0066 ; MOVB \gisP) 18(SP) ; Move sign over "’."° 
6E 6 12Ace IF $8 CVTSP #31,1B(SP) ,# 1. (SP) : Make packed fraction 
eo &6&@ BG &@& WwW FS FB ASHP R6,#31, (SPS ,A5.R -(R9) =; Scale to destination 
4 5 3 false clears RO) 
1D 7 $ BVS 10$ 3; Branch if overflowed 
D 7A INCL a 3; Indicate success, RO = 1 
5E f 7C 3 10$: ADDL2 #56,SP 3; Delete stack temps 
7F RSB 
3 D4 ? 15$ CLRL a0 ; Indicate failure, RO = 0 
5E £0 § aopte #56,SP 3; Delete stack temps 


QTSSCVTRGP_R9 
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Resor T SeyTRGP. MAR; 1 nag & 


1 
¢; Come here on failure of OTSSCNVOUT. This should never happen. 


5 50s: PUSHL #OTSS_FATINTERR 
.. CALLS #1,G*CIBSSTOP 
0 


; OTS fatal error message 


1 
: 
} 3 + Signal and don't return 
2 


-o 


2 
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16-$ Pp! AX/VA 
: g-8Ep-19be 84:45:39 Ltlontc. ce 
DSCSK_CLASS = 1 
DScSKcpTtPeE = 80000008 
STOP eeeeeeee x 
bie CNVOUT_G eeereres 
OTSSCVTRGP_RO 00000000 RG 
OTSS_FATINTERR erereere 
dweoneawane2eonase ne 
: Psect synopsis ! 
ewe nescence wwoewwae} 
PSECT name Allocation PSECT No. Attributes 
Sim ( + ( -) NOPIC USR CON ABS LCL NOSHR NOEXE 
$aBs ( :) ( 1.) NOPIC USR CON ABS LCL NOSHR EXE 
-OTSSCODE ( 147.) 2 ¢ -) PIC USR CON REL LCL SHR EXE 
$e eases ese e semen esa aan nea} 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 5 :00:00.05 00: 1.22 
Command processing 129 :00:00.29 :00:01. 
pees 1 ant : 1 Q :00:01, 4 700: $6 
yabol table sor 7:00:00. 7:00:00. 
Pas - 5 :00:00.38 :00:01.44 
Symbol table output :00:00.01 :00.01 
Psect synopsis output :00:00.01 :00.01 
Cross-reference output :00:00. :00. 
Assembler run totals 35 :00:02. 711. 
The working » t Limit wes 1050 ages. 
9075 bytes f pages) of virtual memory were used to buffer the intermediate code. 
There were 18 page of symbol table space at Locat r to hold 135 non-local ond 4 local symbols. 


0 source A were read in Pass 1, producing | object records in Pass 2. 
pages of virtual memory were used to define 7 macros. 


feces mormacansnenwowoun nae $ 


! Macro Library statistics ; 


Damuebatidenement ewreseeceerecenzece 


Macro Library name Macros defined 
-$255SDUA28 : (SYSLIBISTARLET.MLB; 2 * 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


cro v04-00 
REI TSCVTRGP.MAR; 


NORD NOWRT NOV 
RD WRT NOV 
RD NOWRT NOV 


Page 


1 


EC BYT 
EC BYT 
ECL 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTRGP/OBJ=O0BJ$:OTSCVTRGP MSRC$:OTSCVTRGP/UPDATE=(ENHS:OTSCVTRGP) 
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